home *** CD-ROM | disk | FTP | other *** search
/ Sprite 1984 - 1993 / Sprite 1984 - 1993.iso / lib / perl / oldsprite.ph < prev    next >
Encoding:
Text File  |  1991-08-12  |  522 b   |  25 lines
  1. if (!defined &_SPRITE) {
  2.     eval 'sub _SPRITE {1;}';
  3.     if (!defined &TRUE) {
  4.     eval 'sub TRUE {1;}';
  5.     }
  6.     if (!defined &FALSE) {
  7.     eval 'sub FALSE {0;}';
  8.     }
  9.     eval 'sub SUCCESS {0x00000000;}';
  10.     eval 'sub FAILURE {0x00000001;}';
  11.     eval 'sub NIL {0xFFFFFFFF;}';
  12.     eval 'sub USER_NIL {0;}';
  13.     if (!defined &NULL) {
  14.     eval 'sub NULL {0;}';
  15.     }
  16.     if (!defined &_CLIENTDATA) {
  17.     eval 'sub _CLIENTDATA {1;}';
  18.     }
  19.     if (!defined &__STDC__) {
  20.     eval 'sub volatile {1;}';
  21.     eval 'sub const {1;}';
  22.     }
  23. }
  24. 1;
  25.